home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Mark Pilgrim / Jotto ][ 1.2 / source / Wipes ƒ / Caste wipe.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-10-30  |  1.3 KB  |  46 lines  |  [TEXT/MMCC]
  1. #include "timing.h"
  2.  
  3. #define CorrectTime 1
  4. #define theWindowHeight (boundsRect.bottom-boundsRect.top)
  5. #define theWindowWidth (boundsRect.right-boundsRect.left)
  6.  
  7. pascal short CasteWipe(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect);
  8.  
  9. /* This takes a strip (starting with the topmost strip, moving down) and copies
  10.    it into all the strips starting with the bottom and moving up until it's in
  11.    the right place. */
  12.    
  13. pascal short CasteWipe(GrafPtr sourceGrafPtr, GrafPtr destGrafPtr, Rect boundsRect)
  14. {
  15.     short            srcy, barpos;
  16.     Rect            src, dest;
  17.     Boolean            everyOther;
  18.     short            gap;
  19.     
  20.     gap=theWindowHeight/50;
  21.     everyOther=FALSE;
  22.     src.left = boundsRect.left;
  23.     src.right = boundsRect.right;
  24.     
  25.     for(srcy = boundsRect.top; srcy < boundsRect.bottom; srcy += gap)
  26.     {
  27.         for(barpos = boundsRect.top; barpos + gap < boundsRect.bottom; barpos += gap) {}
  28.         for(; barpos >= srcy; barpos -= gap)
  29.         {
  30.             StartTiming();
  31.             src.top = srcy;
  32.             src.bottom = srcy + gap;
  33.             dest = src;
  34.             dest.top = barpos;
  35.             dest.bottom = barpos + gap;
  36.             CopyBits(&(sourceGrafPtr->portBits), &(destGrafPtr->portBits),
  37.                     &src, &dest, 0, 0L);
  38.             if (everyOther)                      /* simulates time correction 0.5 */
  39.                 TimeCorrection(CorrectTime);
  40.             everyOther=!everyOther;
  41.         }
  42.     }
  43.     
  44.     return 0;
  45. }
  46.